Users_OutLogin.asp 云网互动影视系统(12套模版和资源联盟) 6.2 - ASP源码程序

www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_OutLogin.asp

    <!--#include file="../Conn.asp" -->
<!--#include file="../Function/MD5.asp" -->
<!--#include File = "../API/API_Config.asp"-->
<!--#include File = "../API/API_Function.asp"-->
<body onLoad="Outlogin()">
<%Dim MemberName,APISysKey
MemberName = Request.Cookies("YWNTUserCookie")("UserName")
APISysKey = LCase(MD5(MemberName&API_Key,16))

    If API_Enable Then
        Dim iIndex,strLogoutParams
        strLogoutParams = "?syskey=" & APISysKey & "&username=" & MemberName & "&password="""
		 For iIndex = 0 to Ubound(arrAPIUrls)
            Dim arrAPIs
            arrAPIs = Split(arrAPIUrls(iIndex),"@@")
            Response.write("<script src=""" & arrAPIs(1) & strLogoutParams &"""></script>")
        Next
    End If
conn.Execute("Delete From YWNT_TMS_UsersOnline where UsersName='"&MemberName&"'")
Response.Cookies("YWNTUserCookie")("UserName")=""%>
<script>   
  function   Outlogin()   
  {   
                    window.opener=null;   
                    location.href = '<%=Request.ServerVariables("HTTP_REFERER")%>';   
  }   
</script>